home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
ear
/
mui23dev.lha
/
MUI
/
Developer
/
Oberon
/
txt
/
demo.mod
< prev
next >
Wrap
Text File
|
1994-02-03
|
310b
|
18 lines
MODULE demo;
IMPORT Dos, Mui;
PROCEDURE fail*( app : Mui.Object; str : ARRAY OF CHAR );
BEGIN
IF app # NIL THEN
Mui.DisposeObject( app );
END;
IF str # "" THEN
IF Dos.PutStr( str )= 0 THEN END;
HALT( 20 );
END;
HALT( 0 );
END fail;
END demo.